درج علامت تیک ✔ در اکسل با دابل کلیک
حرفه ای ها سلام امروز می خواهیم در ادامه مطالب مربوط به آموزش اکسل با هم یاد بگیریم که چطور می شود در داخل سلول های اکسل علامت تیک را درج کنیم .
البته برای این کار روش های مختلفی وجود دارد اما روشی که امروز می خواهیم با هم یاد بگیریم کاملا با بقیه روش های معمولی فرق می کند .
می خواهیم کاری کنیم که هر موقع داخل یک سلول دابل کلیک کردیم اکسل به صورت خودکار در داخل آن سلول برای ما یک علامت تیک را درج کند و اگر مجددا در داخل همان سلول دابل کلیک کردیم این بار اکسل آن علامت تیک را برای ما حذف کند .
البته این کار به تنهایی از عهده خود اکسل برنمی آید و چنین قابلیتی را در اختیار ما قرار نمی دهد پس باید خودمان دست به کار شویم و با استفاده از کدها و برنامه نویسی VBA این قابلیت را برای اکسل تعریف کنیم .
من علیرضا شهرآئینی هستم عاشق کار با اکسل مخصوصا برنامه نویسی وی بی ای در داخل آن . اگر تا انتهای این مطلب با من همراه باشید به شما آموزش خواهم داد که چطور این قابلیت کاربردی را توی اکسل برای خودتان ایجاد کنید .
راستی یادتان باشد که اینجا سافت پلاس است و توی سافت پلاس سادگی حرف اول را می زند .
پس با من همراه باشید .
مطلب مرتبط : درج علامت درجه در اکسل
مراحل درج علامت تیک در اکسل
برای اضافه نمودن قابلیت درج علامت تیک در اکسل مراحل زیر را دنبال نمایید .
1- ابتدا شیت کاری مورد نظر خود را که می خواهید قابلیت درج تیک در آن را فعال کنید را باز نمایید .
بر روی نام شیت مورد نظر در قسمت پایین صفحه کاری اکسل کلیک راست نموده و گزینه View Cod را انتخاب نمایید .
بعنوان مثال در تصویر زیر شیت کاری مورد نظر من با عنوان Sheet 8 نمایش داده شده است که بر روی آن راست کلیک نموده ام .
بعد از انجام این کار اکسل شما را به محیط کد نویسی مربوط به این شیت کاری منتقل می کند .
در محیط مربوط به کد نویسی می خواهیم یک سری از کدها را درج کنیم . برای این کار نیاز دارید که به برنامه نویسی VBA در اکسل مسلط باشید برای این کار می توانید از دوره جامع برنامه نویسی VBA در اکسل استفاده کنید .
اما برای درج علامت تیک در اکسل با دابل کلیک می توانید از کدهای زیر استفاده کنید
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect
(Target, Range("B1:B10)) Is Nothing
Then
Applicatio.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCel.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application
.EnableEvents = True
End Sub
با انجام این کار کدهای خود را ذخیره نمده و دوباره وارد محیط اکسل خود بشوید .
اکنون در یکی از سلول های محدوده B1 تا B10 دابل کلیک نمایید .
با انجام این کار متوجه خواهید شد که نرم افزار بطور خود کار یک علامت تیک را در سلول مورد نظر شما درج می نماید .
فقط به این نکته باید دقت نمایید که این ترفند ما در اینجا فقط در محدوده سلول های B1 تا B10 قابلیت اجرا دارد .
دلیل این امر به این خاطر است که ما در خط دوم از کدهایی که در فایل خود قرار داده ایم محدوده مورد نظر را سلول های B1 تا B10 تعریف نموده ایم .
در صورتی که مدنظر دارید این محدوده را تغییر داده و یا آن را گسترش دهید می توانید محدوده مورد نظر خود را جایگزین محدوده درج شده در این خط از کد خود نمایید.
البته این کدها را می توان به گونه ای تغییر داد که بتوان به جای درج علامت تیک سایر علائمی را مورد نظر خودمان است و ممکن است بیشتر با آنها سروکار داشته باشیم را با استفاده از این کدها و با یک دابل کلید در محیط اکسل ایجاد نماییم .
آیا کسی می تواند نحوه انجام این کار را برای ما توضیح دهد .
می توانید دانش خود را از طریق بخش نظرات با ما و دیگران به اشتراک بگذارید .
با ما و مجموعه سافت پلاس همراه باشید تا ترفندهای دیگری در کار با نرم افزار های خانواده آفیس را به شما ارائه نماییم .
برای مشاهده لینک دانلود لطفا وارد حساب کاربری خود شوید!
وارد شویدپسورد فایل : ندارد گزارش خرابی لینک
مطالب زیر را حتما مطالعه کنید
تعیین بالاترین مقدار بر روی نمودار اکسل
هایلایت یک در میان ردیف های انتخابی
splash screen در اکسل – روشی برای خوش آمد گویی به کاربران
شماره ردیف خودکار در اکسل
چطور شیت های مخفی در اکسل را نمایش دهیم ؟
۲ روش برای درج علامت درجه دراکسل +فیلم آموزشی
2 دیدگاه
به گفتگوی ما بپیوندید و دیدگاه خود را با ما در میان بگذارید.
سلام فایل نمونه باز کردم دابل کلیک میزنم وارد سلول میشه آماده تایپ میشه و تیک نمیخوره علت چیست؟
علت پیدا کردن فایل save as ( macro) با فرمت .xlsm زدم درست شد